home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 02 (1990-02)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 11, No. 02 (1990-02)(MindCraft Publishing)(Side A)[a].po / POP4.bas < prev    next >
BASIC Source File  |  1996-12-24  |  756b  |  18 lines
  1. 10  REM   ******************************
  2. 20  REM   * POP4                       *
  3. 30  REM   * BY MARK CRAVEN             *
  4. 40  REM   * COPYRIGHT(C) 1990          *
  5. 50  REM   * MINDCRAFT PUBL. CORP.      *
  6. 60  REM   * CONCORD, MA 01742          *
  7. 70  REM   ******************************
  8. 80  REM 
  9. 90  HOME : GOSUB 120
  10. 100  PRINT : PRINT : PRINT "THIS IS THE NORMAL RETURN FROM THE GOSUB"
  11. 110  END 
  12. 120  PRINT "PRESS <ESC> TO EXECUTE A 'POP' OR PRESS": PRINT "<RETURN> FOR A NORMAL RETURN FROM GOSUB"
  13. 130  VTAB 12: HTAB 1: PRINT "PRESS <ESC> OR <RETURN>..";: POKE  -16368,0: GET X$
  14. 140  IF X$ =  CHR$(27)  THEN  POP : GOTO 170
  15. 150  IF X$ =  CHR$(13)  THEN  RETURN 
  16. 160  GOTO 130
  17. 170  PRINT : PRINT : PRINT "THIS IS A 'GOTO' AFTER EXECUTING A 'POP'"
  18. 180  END